home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.mdf / Docs / Bonus.dir / 00011.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  1.2 KB  |  46 lines
  1. on mouseEnter
  2.   cursor([cast "curs", cast "mask"])
  3.   puppetSprite(the currentSpriteNum, 1)
  4.   set the blend of sprite the currentSpriteNum to 50
  5. end
  6.  
  7. on mouseLeave
  8.   cursor(-1)
  9.   set the blend of sprite the currentSpriteNum to 100
  10. end
  11.  
  12. on mouseUp
  13.   cursor(-1)
  14.   set the blend of sprite the currentSpriteNum to 100
  15.   case the clickOn of
  16.     3:
  17.       set the movieRate of sprite 8 to 0
  18.       go(1, "photobook")
  19.     4:
  20.       set the movieRate of sprite 8 to 0
  21.       set the movieTime of sprite 8 to 0
  22.       set the castNum of sprite 6 to the number of member "play"
  23.     5:
  24.       puppetSound(0)
  25.       set the movieRate of sprite 8 to -2
  26.       set the castNum of sprite 6 to the number of member "pause"
  27.     6:
  28.       puppetSound(0)
  29.       if the movieRate of sprite 8 = 0 then
  30.         set the movieRate of sprite 8 to 1
  31.         set the castNum of sprite 6 to the number of member "pause"
  32.       else
  33.         set the movieRate of sprite 8 to 0
  34.         set the castNum of sprite 6 to the number of member "play"
  35.       end if
  36.     7:
  37.       puppetSound(0)
  38.       set the castNum of sprite 6 to the number of member "pause"
  39.       set the movieRate of sprite 8 to 2
  40.     9:
  41.       set the movieRate of sprite 8 to 0
  42.       go(1, "success")
  43.       puppetSound(0)
  44.   end case
  45. end
  46.